home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue47 / IntBase / UnitUserInfo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-04-28  |  886 b   |  43 lines
  1. unit UnitUserInfo;
  2. (**************************************************************
  3.  
  4.   This unit demonstrates two main points:
  5.     1/ Starting and stopping transactions
  6.     2/ Getting database information
  7.     
  8. ***************************************************************)
  9. interface
  10.  
  11. uses SysUtils, frs_Ibase, frs_Ibase_Object, frs_IBStartParams;
  12.  
  13. Procedure GetUserInfo(var UserNames: array of char);
  14.  
  15. implementation
  16.  
  17. Procedure GetUserInfo(var UserNames: array of char);
  18. var
  19.   itemlistsize: Integer;
  20.   itemlist:     TSmallPB;
  21. begin
  22.  
  23.   itemlistsize:=0;  
  24.   Fillchar(itemlist,sizeof(itemlist),#1);
  25.  
  26.   with frs_GDS do begin
  27.     BuildPBAddConstant(ItemList,ItemListSize,isc_info_user_names);
  28.     TransactionStart;
  29.     isc_database_info(@StatusVector,@DBHandle,1,@itemlist,1024,@UserNames);
  30.     TransactionCommit;
  31.     
  32.   end;
  33.   
  34. end;
  35.  
  36.  
  37. end.
  38.  
  39.  
  40.   
  41.  
  42.  
  43.